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'e¢ 
! FACILITY: EDT == The DEC Standard Editor 


1 
~Sep-1 SIKSVMGMASTERSCEDT SRCSSCRNCOL.BLISTe” (1) 

1 EUINUE ect EDTSSCRNCOL = compute new column peeteten" 

§ TSSCRNCOL ( } Senputy new column positi 

; 1DEN NT = 'V04=000' le: SCRNCOL. *BLI edit: JBS1003 
5 BEGIN 

§ lsaneeeereneeneneceeseuneeerecseececerenteerentecteenneenecnensneerecreeteets 

'® & 

$ ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
10 001 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
1 001 is ALL RIGHTS RESERVED. ° 
ig 01 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 001 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN NSE AND WITH THE * 
15 001 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER * 
1 01 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 001 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 001 ie TRANSFERRED. . 

0 r ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

1 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 

‘ ie CORPORATION. e 

4 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

5 is SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. ° 

$ is : 

; w 

0 

5 


' 

' 

! 

ABSTRACT: 

: This module computes a new column position for vertical moves. 
§ ENVIRONMENT: Runs at any access mode - AST reentrant 
40 AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
4¢ MODIFIED BY: 
44 i 1-001 - Original. DJS 12-Feb- 1981 This module was created by 
45 i extracting the peut ine 4 TS$8C, cr gyal res from module SCREEN. 
4 i q- “008 - Regular ze headers. Aar-1 
4 i 4 - ayete us ino the +. e* a base since the current Line may not 
o8 i be on the screen. JBS 1 -Sep-198 


aa ii a a a tk ek kk tk ad et ss a 2 2 2 2 2 2 2 st ts 


ceyearencan ee oe Sy compute new column position toes sep-1 o8t 9}: He \§ 


Fe Le 


SSBTTL *Declarations' 
| TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTS$SC_CPUNEWCOLPOS : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


EXTERNAL REFERENCES: 
In the routine 


Se Se Se Se Ge Oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Ge Se Ge Ge Ge we 
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ht ss tb a 2 3 2 as 4 ts a 2 2 ts a a a te tk tt 


9 MACROS: 
4 NONE 
t3 EQUATED SYMBOLS: 
if NONE 
7 i OWN STORAGE: 
78 i 
79 i NONE 
0 i 
i 
i 
i 
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wef | 


4 
EDTSSCRNCOL DTSSCRNCOL = compute new column position 1b-§ -1984 01:37: VAX-11 Bliss-32 V4.0-74 P 
ve tts Eo Teese CPUNEWCOLPOS = compute nee column posi 1 a 1 94:37:48 NI KSUMGMASTERSCEDT SRCISCRNCOL.BLI;1°%* (33 


: 5 5 ! RSBTTL "EDTSSSC_CPUNEWCOLPOS = compute new column position’ ; 
; 1 GLOBAL ROUTINE EDTSSSC_CPUNEWCOLPOS ! Compute new column position . 
$ ; : : NOVALUE = : 
; 1 144 ; 
3 4 ! } FUNCTIONAL DESCRIPTION: ; 
3 38 1! This routine computes a new column position for vertical moves. When $ 
; 94 1! any command other than a vertical arrow which moves the cursor is executed 3 
s 9 1! this procedure is called to get the new column position for vertical moves. 3 
: 39 : H The column position is kept in EDT$$G_COL . : 
; o8 1 ! FORMAL PARAMETERS: 3 
; : 1! 3 
: 100 01! NONE 3 
: 183 oFy yt aMPLICIT INPUTS 
3 19 org 1! 3 
; 104 674 1! EDTSS$T_LN_BUF $ 
; 105 675 1! EDTSSA_LN_PTR 3 
3 136 ore 1! 3 
; 10 77 1°! IMPLICIT OUTPUTS: 3 
; 108 ore 1! $ 
3 309 0679 1! EDTS$$G_COL 3 
; 110 0680 1! 3 
; 61211 1 1°! ROUTINE VALUE: F 
3 Wg ¢ 1! 3 
7 3 1! NONE 3 
3. 6116 06 1! 3 
s 115 Be82 1 ! SIDE EFFECTS: 3 
; 116 1! 3 
s 117 06 1! NONE 3 
; 118 81: 3 
; «6119 9 1 I= 3 
: 120 1 3 
: 121 91 BEGIN ; 
. % ¢ 3 3 
‘| 069 EXTERNAL ROUTINE 3 
3 : : Bene EDTSSFMT_CHWID; ! Compute the width of a character : 
: 158 36 oaream, 3 
: 127 9 EDT$$G_COL ' The column we should be on. : 
> 128 98 EDTS$$T_LN_BUF, i Current Line buffer. : 
3 ! 9 EDTSSA_LN_PTR; ! Current character pointer. : 
: } ! 701 ae POINT : 
re ¢ 7 : ™ 3 
. 7 COL_POINT = EDTS$T_LN_BUF; 3 
3 : 5 , 5 EDTS$G_COL = 0; 3 
oo 7 WHILE CHSPTR_NEQ (co POINT, .EDTS$A_LN_PTR) DO 3 
3 138 ? 8 EDT$$G_COL = .EDTSSG_COL + EDTSSFAT_CHWID (CHSRCHAR_A (COL_POINT), .EDT$$G_COL); : 
3 140 710 END; ! of routine EDTS$SC_CPUNEWCOLPOS : 
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eTITLE EDTSSCRNCOL ERTSSCRNCOL = compute new column po 
-IDENT \v04-000\ 


-EXTRN EDTSSFMT CHWID, EDT$$G_COL 
-EXTRN EDTSST_LA_BUF, EDTSSA_CN_PTR 


-PSECT  EDTSCODE,NOWRT, SHR, PIC,2 


<m 


ERTSSERNCOL 


000¢ 000 .ENTRY EDTSS$SC_CPUNEWCOLPOS, Save R2,R3 : 0657 
53 900000006 0 E 0 MOV EDT$$G_COL, R ; 
E MOVAB EDTSS$T“LN bur. COL_POINT + 0704 
: D4 0001 CLRL EDTS$G~ + 0705 
000000006 00 ; D4 001 1$ che cOL POINT, EDTS$A_LN_PTR + 0707 
63 pd 0018 PUSHL €DT$$G_COL + 0708 
7E A 0001D MOVZBL (COL_POINT)+, (SP) : 
000000006 09 0 FB 00 9 CALLS #2, EDTSsr ERE CHWID ; 
é CO 000 ADDL2 RO, EDT$$G_COL : 
E6 11 O002A BRB 1$ ; 
04 0002C 2$ RET + 0710 


; Routine Size: 45 bytes, Routine Base: _EDTSCODE + 0000 


0711 +1 
0712 1 !<BLF/PAGE> 


ed: 56 pages 
pene Meng Complete : 


K 4 
EDTSSCRNCOL EDTSSCRNCOL = compute new column position 16-Sep-1984 VAX-11 Bliss-32 V4.0-7 
700-000 EDTSSSC_CPUNEWCOLPOS = compute ney column posi 14-Sep -1 1984 3: 34; § DISKSVMSMASTER: EDT. SRC SCRNCOL.BLI;1 se 
; 1446 713° 1 END ! TSSCRN : 
ite Og } of module EDTSSCRNCOL 
: 146 715 0 ELUDOM : 
; PSECT SUMMARY ; 
; Name Bytes Attributes ; 
;  JEDTSCODE 45 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics : 
Fea Symbol$ -oee---- Pages Processing 
: File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CEDT. SRCJEDT.L32;1 377 1 0 40 00:00.2 : 
3 Hittite te EDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 3 
3 COMMAND QUALIFIERS : 
: GLESS/ENECR OEE FELD, INITIAL ,OPTERIZE) /HOTRACEBACKAL LE1, 198: SCRNCOL /OB)=OR Es SCANCOL MSRC$:SCRNCOL.BLI/UPDATE=(ENHS$: SCRNCOL : 
: gg 45 6869. + 0 data bytes 
; Elapsed Time: 0:11.7 
3 Lines/CPU Min: 4544 
3 Broo Boa 13363 
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